Private Sub UserForm_Initialize()
'    
With ListBox1
.ColumnHeads = True
.ColumnCount = 2
.ColumnWidths = "50;0"
'  
.RowSource = "=Sheet1!A2:B10"
.MultiSelect = fmMultiSelectSingle
.TextColumn = 1
.BoundColumn = 0
End With
Me.Caption = "  "
End Sub